home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Questions & Answers / Q&A Programming Functions / Noergaard infinity variants < prev    next >
Encoding:
Text File  |  1998-10-26  |  912 b   |  23 lines  |  [TEXT/ScoM]
  1. NOERGAARD-INFINITY SERIES VARIANTS
  2.  
  3. I'm glad to see that noergaard-infinity-series is being used.
  4. I have a couple of variants that I will include in cadar later.
  5. Have to finish a string-quartet ,and don't have any time for that now.
  6. I found a stupid error in syms-to-ton when using symbols
  7. that I will correct when I get the time.
  8. Pleace let me know if anyone finds bugs!!!
  9.  
  10. (mapcar #'(lambda (x y) (noergaard-infinity-series x y))
  11.         (list-a-scale 8 17) (symbol-divide 2 nil nil
  12. (noergaard-infinity-series 34 '(a b))))
  13.  
  14. (let ((material (noergaard-infinity-series 8 '(a b))) (lengths (list-a-scale
  15. 2 4)) (seed nil) (result '())) 
  16.   (init-rnd seed)
  17.    (dotimes (iter 21)
  18.     (push (noergaard-infinity-series (+ (pick-random lengths) 
  19.                                         (get-random 2 8)) 
  20.                                      (pick-random-n (pick-random lengths)
  21. material)) result))
  22.   (nreverse result))
  23.